home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr47
/
wasm223.zip
/
STEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-05-04
|
346b
|
19 lines
' This QuickBASIC program uses the Load and
' Store routines defined in STORE.ASM
'
' Compile with:
'
' WASM store store.obj
' BC stest;
' LINK stest+store;
DECLARE SUB Store (BYVAL v%)
DECLARE FUNCTION Load%
i% = INT(RND * 32001)
PRINT "The number stored is"; i%
Store (i%)
PRINT "The number retrieved is"; Load%
END